1000 PRINTCHR$(147)
1010 POKE53280,0:POKE53281,0:POKE646,1
1015 :
1020 PRINTSPC(12)"[129]INKWELL SYSTEMS"
1030 PRINTSPC(12)"P R E S E N T S"
1032 PRINTSPC(1)"A DEMONSTRATION OF GRAPHICS AND SOUND"
1035 IFB=0THENB=1:LOAD"CARS* ",8,1
1040 IFT=0THENT=1:LOAD"DDMOCKPAINT",8,1
1041 GOSUB1069
1042 SYS32923
1043 FORI=1TO10000:NEXT :GOSUB1110
1044 GOSUB20000
1050 GOSUB1069
1060 GOTO1150
1068 REM PICTURE ON
1069 POKE 53280,12
1070 POKE53265,59
1080 POKE53272,120
1090 POKE56576,PEEK(56576)AND254
1100 RETURN
1108 REM PICTURE OFF
1109 POKE 53280,0
1110 POKE53265,27
1120 POKE53272,21
1130 POKE56576,PEEK(56576)OR1
1140 RETURN
1150 :
1160 :
1170 :GOSUB1069:FORI=1TO101000:NEXT
1172 POKE33847,4:GOSUB1109
3042 FORI=1TO10000:NEXT
3050 PRINT"[147]"
3055 GOTO1041
20000 POKE53280,0:POKE53281,0:PRINT"[147]"
20005 PRINT""
20010 A$="       [152]YOU MIGHT THINK ITS MACPAINT"
20020 FORI=1TOLEN(A$)
20030 FORZZ=1TO50:NEXTZZ
20040 PRINTMID$(A$,I,1);:NEXTI
20060 PRINT ""
20070 A$="[152]BUT IT'S NOT.  ITS [154]MOCKPAINT"
20080 A$="       "+A$
20090 FORI=1TOLEN(A$)
20100 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
20110 FORZZ=1TO27:NEXTZZ:NEXTI
20120 PRINT"[159]"
20130 A$="      [158]- A HIGH RESOLUTION DRAWING"
20140 FORI=1TOLEN(A$)
20150 FORZZ=1TO50:NEXTZZ
20155 PRINTMID$(A$,I,1);:NEXTI
20160 PRINT
20161 A$="        [158]CREATED WITH FLEXIDRAW."
20162 FORI=1TOLEN(A$)
20163 FORZZ=1TO50:NEXTZZ
20164 PRINTMID$(A$,I,1);:NEXTI
20190 PRINT""
20200 A$=" [129]FLEXIDRAW[152] IS A LIGHT PEN"
20201 A$="       "+A$
20202 FORI=1TOLEN(A$)
20203 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
20204 FORZZ=1TO27:NEXTZZ:NEXTI
20205 PRINT
20210 A$="     DRAWING PROGRAM.      "
20211 A$="       "+A$
20212 FORI=1TOLEN(A$)
20213 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
20214 FORZZ=1TO27:NEXTZZ:NEXT I
20217 PRINT""
20218 A$=" FROM [129]INKWELL SYSTEMS."
20219 A=LEN(A$):IFA/2<>INT(A/2)THENA$=" "+A$:GOTO20219
20220 FORI=1TOA/2
20230 PRINTTAB(19-I);LEFT$(A$,I);RIGHT$(A$,I)
20240 PRINT"[145]";
20250 FORZZ=1TO50:NEXTZZ
20260 NEXTI
20270 PRINT""
20280 A$="[129]FLEXIDRAW GIVES THE COMMODORE 64"
20290 A$="    "+A$
20291 FORI=1TOLEN(A$)
20292 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
20293 FORZZ=1TO27:NEXTZZ:NEXTI
20370 PRINT
20371 A$="THE POWERS OF A MACINTOSH.[146]"
20372 A$="       "+A$
20373 FORI=1TOLEN(A$)
20374 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
20375 FORZZ=1TO27:NEXTZZ:NEXTI
20381 PRINT""
20390 A$="  COMPLIMENTS OF [158]PETER AND PAUL HUGHES"
20400 FORI=1TOLEN(A$)
20410 M=ASC(MID$(A$,I,1))
20420 IFM<65ORM>90THENPRINTCHR$(M);:NEXTI
20430 FORJ=65TOM
20440 FORH=1TO5:NEXTH
20450 PRINTCHR$(J);"[157]";
20460 NEXTJ
20470 PRINT"";
20480 NEXTI:FORU=1TO5000:NEXTU
20490 RETURN